Option Explicit
Sub H_Sample005()
    'ϥΥH_Sample001s@XӪϪ
    Dim mySht As Worksheet
    Set mySht = ThisWorkbook.Worksheets(1)		'Ϫ
    With mySht.ChartObjects(1)					'NϪt
        .Activate
        .Chart.ShowWindow = True
    End With
    'wܦmPjp
    With ActiveWindow
        .Top = 50
        .Left = 50
        .Width = 400
        .Height = 300
    End With
    Set mySht = Nothing						'
End Sub
